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EDTSKEYCHR = get next command character 16-Sep-1984 30:41:34 VAX-11 Bliss-32 V Page 1 
° 14- ~3ep-19 4 79:53:35 DISK KSVMEH STER: tt 7 SaCSKEYCHR. BLI;1 (1)) 
1 ZTITLE ‘EDTS ue = get next command character’ 
MODULE 65 STsk KEYCHR ( ' Get noyt, command character 
pDENT = *'v04-000' ! File: KEYCHR.BLI Edit: JBS1022 
= 


BEGIN 


eRe eR ARACEAE AAA AARER REAR ERE REET EAEEAEAEREEEEEEETEEEEREEEES 
® 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


geggsess 
BUSA 


a 

s 4 

; 5 1 

3 8 1 

3 1 

5 8 1 

3 4 9 1 * 
H 10 010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 3 Bett : re ALL RIGHTS RESERVED. * 
$ !e , 
3 i $18 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coPieD * 
; % 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

H 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 16 B28 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

3 17 001 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SCFTWARE IS HEREBY * 

3 i Bors ! in TRANSFERRED. * | 
: '® » 

; 20 0020 1 !®* THE a ry ale IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 21 0021 1 !* AND SHOUL NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $§ 0038 ; :* CORPORAT ON. * 

b is ca 

H $e 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

4 $2 oh ' o SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; : + 

3 a? 0027 1 !*# * 
g $8 Bn5¢ 1 Lee AAR AEA AERA AEAEAAAEA EAE AA AAA EAAATEAEAAEES 
3 7? 
; 50 $080 1 
; 1 0031 1 !++ 
3 $ ot T4 1 ! FACILITY: EDT == The DEC Standard Editor | 
aS 0033 1! | 
; $e 0034 1 ! ABSTRACT: 

g 5 0035 1! 
3 ¢ Bo8 : Get next command character. | 
3 38 ts ! ENVIRONMENT: Runs at any access mode - AST reentrant 
3 29 re ' : AUTHOR: Bob Kushlis, CREATION DATE: April 7, 1979 

; ! 
3 $§ Ong 1 ! MODIFIED BY: 

Beg 045 1! 

: 644 0044 1 ! 1-001 - Original. DJS 24-Feb-1981. This module was created by 

; 65 0045 1! extracti ng routine EDT$$NXT_CMDCH from module KEYTRAN. 

: 46 O066 1 ! 1-002 = Regularize headers. JBS 06-Mar-1981 

‘pee, 4 0047 1 ! 1-005 = Add a check for repeat counts allowed or not. STS 26-Aug-1981 
; 48 0048 1 ! 1-004 - Fixed problem with eerevest so it doesn't insert number. 
; | «649 0049 1! “Aug-1981 
s $0 50 1 ! 1-005 - Add return aN on a end of journal file. JBS 02-Oct-1981 
Ta 51 1! 1- $ - Don't pass values of keypad except arrow keys. STS 15-Apr-1982 

: 26 26 1! 1- - Accept a flag indicating: validity of nb 28") counts. STS Pi 6-Jun-1982 

3 53 1 ! 1-008 - Remove reference to TI_STARTECHO. Jun-1 

3 ee 054 1 ! 1-009 - Change quner i igi: JBS 19-Jul-19 

3 5 55 1 ! 1-010 = Don't ring bell if quiet set, STS 89-Aug- 1982 

: 2$ 2$ 1 ! 1-011 = New 4 re siaties of defined keys. JBS 13-Aug-1982 

3 0057 1 ! 1-012 = Don't suppress all keys im NOKEYPAD mode. JBS 16-Aug-1982 


| 
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E YCHR EDTSKEYCHR = get next command character 1b-se Sep-1984 VAX-11 Bliss-32 V 
vee ° at 7 99: $4: 35 DISKSVMSMASTER: tt + SRCIKEYCHR. BLI; * (1) 
1 Fix nore eet case. JBS 16-Aug-1982 
1 Ailoy for 8 “bi t keyboards. JBS 17-Au Rign'8 
1 Add SS “bit the ite: JBS Onn u 82 
16 = Erase the nessa el ne ¢ 3f ter the. rst Leyatreke, if it has 
a messa ~ qn ° 6-0ct-1 2 

01 Output east butter just E.Pgrore, weiging for input, in case 

there is vanything i n it. wee 
018 - Don't. ger Ht message los until an entire key sequence has been read. 
-Oct-1 

-019 = Output the td buffer in another case of weitiog. for input. JBS 09-0ct-1982 

-020 = Change the call to EDTSSTST_KEYDEF. JBS 14-Dec-19 
- - Complete the imptenentat ign” of 8-bit keyboards. 185 20-Jan-1983 
-022 - Add a conditional for VT220 surmeort. JBS 11-Feb-1983 
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EDTSKEYCHR EDTSKEYCHR = get next command character sl-tie 386 90:34:38 VAX-11 Bliss-32 ve Oeceg Page 4) 
v04 EDTSSNXT_CMDCK = get next command character 14-Sep-1984 12:23:20 DISKSVMSMASTER: CEDT.SRCJKEYCHR.BLI;1 (3). 
1 6 1 1 ZSBTTL "EDTSSNXT_CMDCH = get next command character’ 
‘ : GLOBAL ROUTINE EDTSSNXT_CMDCH ( ! Get next command character 
4 684 ' Place to store the character 
é ? ‘ REPEAT ! Accept repeat counts 
= 
: ! it 
; a4 FUNCTIONAL DESCRIPTION: 
1 0691 Get the next command character. Keypad keys are converted to their 
¢ 0596 numeric equivalent and the functions of GOLD are handled here. 
: boos FORMAL PARAMETERS: 
$ 8938 C The address of a fullword to receive the character. 
: +244 REPEAT Flag indicating whether to accept repeat counts. 
? +4 IMPLICIT INPUTS: 
2 4 EDTSST_CMD_BUF 
3 0 EDTS$G_KPAD 
04 EDT$$A_CMD_BUF 
05 EDT$$G_RPT 


EDTSSA~CMD_END 


ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
w 


PREMPOPIMPOPOPOPIMOPINNIY tt tt at tt tt tt 


07 
07 
07 
07 
07 
7 $709 EDTS$G_MSGFLG 
8 0708 
9 3444 IMPLICIT OUTPUTS: 
0 710 
1 0711 EDTSS$A_CMD_BUF 
; Brie 
071 ' ROUTINE VALUE: 
4 gets 
5 715 0 = control U typed, no command. 
6 p78 1 = a command key was typed. 
7 071 2 = end of journal file. 
8 ore 
9 071 SIDE EFFECTS: 
0 0720 
1 0721 NONE 
Pera | 
07 - 
4 8? 4 
5 y 5 BEGIN 
$ 7 $ EXTERN, ROUT INE 
8 728 EDTSSSC_REVID, ' Turn on reverse video 
9 729 EDTSSPUT_CMDCH : NOVALUE, ' Put a character in the command buffer 
7 EDTSSTRN_KPADK, ! Read an escape sequence 
1 731 EDTS$TI_INPCH, 
§ 7 ¢ EDTS$TI_DELK 
7 EDT$$TI-ECHOCH, 
7 EDTSSERA_MSGLN, ' Erase the message lines _ 
735 EDTSSRING BELL ' Ring the bell on the terminal : 
236 EDT$SS$TST_REYDEF, i Test a key to see if it is defined as a particular string 
7 EDTSSOUT_ FMTBUF ; ' Output the format buffer, if it is non-empty 
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5 
HR - get next command character 18-Sep-1984 90:34:38 VAX-11 Bliss-32 V4. 
_CMDCRH = get next command character 14-Sep-1984 12:23:20 DISKSVMSMASTER: CEDT 
exces 
EDTSSG_MSGFLG, ! 1 = there is text on the message Line 
EDTS$G_QUIET, ' quiet fla 
EDTSST_CMD_BUF, ' Command buffer 
EDTSSA_CMD_BUF, ! Pointer to next char in command buffer 
EDTS$G_KPAD, ' in keypad mode? 
EDTSSG_RPT, ! Flag for repeat counts 
EDTSSA_CMD_END ! Pointer to end of info in command buffer 
XIF SUPPORT_VT220 
THEN 
eri €DT$$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE] ! Information about characters 
OCAL 
SAVE _POINT, ! Starting EDTSS$A_CMD_BUF . 


is SAVE_POINT = .EDTSSA_CMD_BUF; 

; Make sure the user sees anything which might be in the format buffer. 
EDTSSOUT_FMTBUF (); 

i Get a character. 


IF (EDTSSTI_INPCH (MY_C) EQL 0) THEN RETURN (2); 
'¢ 
If the character is an escape, CSI or SS3, then look for a keypad sequence. 
Z1F SUPPORT_VT220 
ZTHEN 


IF ((.MY_C EQL ASC_K_ESC) OR (.MY_C EQL ASC_K_CSI) OR (.MY_C EQL ASC_K_SS3)) 

ZELSE 

IF (.MY_C EQL ASC_K_ESC) 

THEN 
FI 

BEGIN 

'¢ 
Translate keypad character. 


IF (EDTSSTRN_KPADK (MY_C) EQL 0) THEN RETURN (2); 


'¢ 
! If there is any text on the message line, erase it, since the user 


<m 
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SAA HOCH = GOk Rent connend Character ep-1986 19:35:20 DISKSYMSMASTERSCEDT SRCIKEYCHR.BLI; 1°" (35 


oOo = 
uw me 


has now had an opportunity to read it. 


IF (.EDTS$G_MSGFLG NEQ 0) THEN EDTSSERA_MSGLN (); 
IF _( NOT .EDTS$$G_KPAD) 
THE 


MEWN—OOONOu 
LODO NS 


ED 
ED 
7 
7 
7 
7 
7 
: BEGIN | 
9 04 IF (CMY. EQL K_UP) OR (.MY_C EQL K_DOWN) OR (.MY_C EQL K_RIGHT) OR (.MY_C EQL K_LEFT)) | 
3s evse’® = .MY_C 
8 8 8 .C = K_PF1; 
9 09 
40 Bai? RETURN (1); 
re. +e END; 
“g 0818 
44 0814 
“z pei? 
$ $819 
48 0818 
49 + $84 WHILE EDTSSTST_KEYDEF (.MY_C, UPLIT (BYTE (‘GOLD')), 4, 0) DO 
ee Pein 
5 08 i Look at the next character. It should be either a di it, a si 
2§ 08 5 ! or a letter. . 8 - 
54 0824 \- 
55 0825 EDTSSOUT_FMTBUF (); 
256 08 $ 
$2f OB 8 IF (EDTSSTI_INPCH (MY_C) EQL 0) THEN RETURN (2); 
259 0829 EDTSSSC_REVID (); 
260 0830 
61 L 0831 3 x1F SUPPORT_vT220 
o¢ tt ZTHEN | 
64 He IF (((.EDT$$B_CHAR_INFO C.MY_C, 0, 0, 8, 0) EQL %X°FO") OR (.MY_C EQL %C*-")) AND .REPEAT) | 
a | 


ae GEQ ZC°O"*) AND (.MY_C LEQ %C°9"))) OR (.MY_C EQL 2C'=-")) AND .REPEAT) | 
IF I | 
- BEGIN 
' Start of a repeat count. If this was not the first bey prosesd 


! then re-start the count by clearing the buffer back to 
} point where we started. 
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IF (.EDT$$G_RPT EQL 0) 
THEN 
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END; | 

1+ | 

If the key is defined as GOLD, handle it here. 

' 

| 
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4 
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5 BEGIN 
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; | 
EDTSKEYCHR EDTSKEYCHR = get next command character ikese -1984 41:34 VAX=-11 Bliss-32 V4.0-74 P 7| 

Oe EDTSSNXT_CMDCA = get next command character 127808- 1382 90:34:36 ST EKSUMGHASTERSCEDT SRCIKEYCHR.BLI:1 — (3), 

: 28 3 
; : § IF ( NOT .EDTS$$G_QUIET) THEN EDTSSRING_BELL (); | : 
; i 5 EDTSSOUT_FMTBUF (); | ; 
87 § IF (EDTSSTI_INPCH (MY_C) EQL 0) THEN RETURN (2); | ; 
: 289 L § %IF SUPPORT_vT220 | : 
; 4 r¢' XZ THEN | : 
3 % 66 TF CCAMYC EQL ASC_K_ESC) OR (.MY_C EQL ASC_K_CSI) OR (.MY_C EQL ASC_K_SS3)) | : 
: 29% uU bss XELSE ; 
: $38 fr re IF (.MY_C EQL ASC_K_ESC) | 
: 3 U Bey THEN. ~ silbes : 
:; 298 0868 FI 3 
: $6 $890 6 BEGIN 
; $2 $872 6 IF (EDT$STRN_KPADK (MY_C) EQL 0) THEN RETURN (2) 
: 08 $898 : . ? ; ; 
: 304 0874 END; : 
: 305 0875 5 : 
: 306 pare 5 END 3 
3 07 0877 4 ELSE 3 
3; 308 0878 5 BEGIN : 
: 309 0879 5 | : 
i 310 0880 6 IF CHSPTR_NEQ (.EDTSS$A_CMD_BUF, .SAVE_POINT) | : 
3 11 0881 5 THEN 3 
: 3g 0882 6 BEGIN | : 
: 31 0883 6 EDT$$A_CMD_BUF = .SAVE_POINT; ; 
> 314 0884 6 EDTSSERA_MSGLN (); : 
: 315 gas 5 END; | : 
3 318 0886 : 3 
; 17 0887 '¢ 3 
: $15 tt 5 : Now continue reading and echoing characters until a non-digit is found. : 
: 320 0890 ; ; ; 
; $f 0891 bo : 
: 32 0892 6 BEGIN : 
: 3 0893 6 EDTS$$TI_ECHOCH (.MY_C); : 
3 4 0894 6 EDTSSPUT_CMDCH (.MY_C, 0); : 
; 5 0895 é EDTS$SOUT“FMTBUF (); | ; 
: 5 0899 6 IF (CEDTS$TI_INPCH (MY_C) EQL 0) THEN RETURN (2); | : 
: 328 898 6 3 
: 93 899 6 !+ F 
; 0 900 6 ! Look for delete and CTRL/U | 3 
: 331 901 6 !- | 3 
; $§ 308 6 | 3 
: 33 6 WHILE (.MY_C EQL ASC_K_DEL) DO | ; 
: 35 0305 4 BEGIN : 
: 906 8 IF CHSPTR_NEQ (.EDTSSA_CMD_BUF, .SAVE_POINT) ; 
: He 907 THEN 3 
: 338 908 8 BEGIN : 
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DISKEYCHR = get next command character 16-Sep-1984 00:41:34 VAX-11 Bliss-32 V4.0-74 Page 8) 
DTSSNXT_CMDCH = get next command character 1o-808-1 3c 99:53:36 DLEKSVMGMASTERSLEDT  SRCIKEYCHR.BLI:1 ’ (3) 
9 EDTS$A_CMD_BUF = CHSPLUS (.EDTSSA_CMD BUF, -1); | 
H pOISSTT DECK (CHSRCHAR (.EDTSSA_CAD_BOF)); 


EDTSSOUT_FMTBUF (); 
IF CEDTSSTI_LINPCH (MY_C) EQL 0) THEN RETURN (2); 


END; 

IF (.MY_C EQL ASC_K_CTRL_U) 

THEN 
BEGIN 
EDTSSERA_MSGLN (); 
EDTS$A_CAD_END = EDTSS$T_CMD_BUF; 
RETURN” (0); 


END 
UNTIL 
XIF SUPPORT_VT220 
XTHEN 
(.EDTS$B_CHAR_INFO C.MY_C, 0, 0, 8, 02 NEQ %X'FO") 


PEAS PVD. DED. DS VSS SSSI D> SUSTSTSISTSISTSION OP OP OP OP III OP OP NINN NOOO NNN IODOD 


XELSE 
SFI ((.MY_C LSS 2C°O") OR (.MY_C GTR %C'9")) 
09 
0936 6 : 
9494 If the repeat sequence was ended by an escape, CSI or SS3 then get the key. 
338) 
94 X1F SUPPORT_VT220 
Rpe7 STHEN 
0945 IF ((.MY_C EQL ASC_K_ESC) OR (.MY_C EQL ASC_K_CSI) OR (.MY_C EQL ASC_K_SS3)) 
094 THEN 
094 ZELSE 
948 
949 IF (.MY_C EQL ASC_K_ESC) 
950 THEN 
951 xF I 
936 
984 BEGIN | 
Bae IF (EDTSSTRN_KPADK (MY_C) EQL 0) THEN RETURN (2); 
9e9 END; 
Hy 
95 END 
960 
961 END | 
306 ELSE 
96 | 
964 3 ZIF SUPPORT_VT220 | 
965 Z THEN 
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EDTSKEYCHR = get next command character 16-Sep-1984 00:41:34 VAX-11 Bliss-32 V4.0-74 Page 9) 
EDTSSNXT_CMDCK = get next command character 1o-88= 1382 99:54:35 STEKSVMEHASTERSCEDT SRCIKEYCHR.BLI:1 . (3) | 
966 3 
$3 4 PAC AYE EQL ASC_K_ESC) OR (.MY_C EQL ASC_K_CSI) OR (.MY_C EQL ASC_K_SS3)) 
308 ZELSE 
970 
971 IF (.MY_C EQL ASC_K_ESC) 
ars THEN 
97 ZF I 
974 
975 '¢ 
976 ! Here if we had gold followed by an escape, CSI or SS3. 
at } Translate the sequence and use the golded function of the key. 
979 4 BEGIN 
0980 4 
344 2 IF (EDTSSTRN_KPADK (MY_C) EQL 0) THEN RETURN (2); 
0983 4 MY_C = .MY_C + K_GOLD_BASE; 
0984 4 END 
0985 3 ELSE 
0986 4 BEGIN 
0987 4 !+4 
3454 2 Here if we had gold followed by a character from the main keyboard. 
0990 4 | 
0991 4 XIF SUPPORT_VT220 
899 : X THEN 
0994 4 IF .EDT$S$B_CHAR_INFO C.MY_C, 0, 0, 1, 0] ! Lower case | 
0995 4 THEN 
0996 4 XELSE 
0997 4 
0998 4 IF ((.MY_C GEQ %C'a"*) AND (.MY_C LEQ %C‘2")) 
0999 4 THEN 
1000 4 &FI 
1001 4 
1008 2 MY_C = .MY_C = %C°a’ + 2C°A'; ! Force to upper 
1004 4 MY_C = .MY_C + K_GOLD_BASE; 
1005 ; ENB; 
1006 
1007 END; 
1008 
1009 '¢ 
! 10 Return the coded character. 
eT Had 
1oig ; -C = MYC; 
101 RETURN (T); 
1014 1 END; ! of routine EDTSSNXT_CMDCH 


TITLE EDTSKEYCHR FOTORE VCH = get next command charac 
er 

-IDENT \Vv04-000\ 

-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
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et next command character 16-5e 
CH = get next command character 


00000098 
0000008F 


00000138 
00000139 
0000013A 
00000138 
04 
04 


44 4C 4F 47 00000 P.AAA: 


O7FC 00000 


5A 000000006 00 
59 000000006 88 
28 000000006 00 
57 000000006 88 
26 000000006 00 
55 000000006 00 
5E 04 
54 65 
66 90 
E 
67 01 
50 
ee: 
: 
8F 6E 
09 
8F 6E 
51 
5E 
68 01 
50 
6° 
000000006 ° 
0 
$ ecoooons 
6 000000006 00 
50 ef 
8F ; 
1 
8F 5 
9 
8F s 
BC 6 
$6 
BC 0140 F 
0146 
7E 04 
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>>> 
oo 


SP 
CALLS #1, 
RO 


EDTS$$TRN_KPADK 


TSTL 
$: BEQL «sso 
TSTL EDTSSG_ MSGFLG 
BEQL $ 
CALLS #0 EDTSSERA_ MSGLN 
$: BLBS Eviss KPAD, -7$ 
MOVL 
CMPL ROT cast 
BEQL «6s 4$ 
CMPL = RO, «#313 
BEQL 46 4$ 
CMPL = RO, «#314 
BEQL 86 4$ 
CMPL = RO, «#315 
BNEG 5$ 
4$: MOVL RO, ac 
BRB 4 
5$: MOVZWL # 20. ac 
if a 31 
$: MOVQ #4, =(SP) 
PUSHAB P.AAA 


-Sep-1984 4 VAX-11 Bliss-32 V e 
-$ep-1984 4 93: $4: 34 DISK KSVMCH STER: a + SRCSKEYCHR. BLI;1 te RY 
sASCII \GOLD\ 
.EXTRN EDTSS$SC_REVID, EDTSSPUT_CMDCH 
SEXTRN EDTSS$TRN_KPADK, EDT$$TI~INPCH 
-EXTRN EDTS$$TI_DELK, EDT$$TI_ECHOCH 
-EXTRN EDTSSERA_MSGLN, EDTSSRING_BELL 
XTRN EDTS$$TST =KEYDEE 
[EXTRN EDT$SOUT~FMTBUF 
XTRN EDTS$G UMSGFLG. EDT$$G_QUIET 
-EXTRN EDTSST-CMD_BUF, EDTSS$A_CMD_BUF 
“EXTRN EDTS$G-KPAD VEOT G_RP 
-EXTRN EDTSSA_CMD_END, EDTS$B_CHAR_INFO 
ENTRY EDTSSNXT_ CMDCH, Save R2,R3,R4,R5,R6,R7,R8,- 
MOVAB EDT$$B_CHAR_INFO, R10 
MOVAB EDTSSERA_MSGLN, R9 
MOVAB EDTS$STRN7KPADK, R 
MOVAB EDTS$$T1_INPCH 
MOVAB EDTS$SOUT FMTBUF, R6 
OV EDTS$A_CMD_BUF, R5 
SUBL2 #4, SP 
OVL EDTSSA_CMD_BUF, SAVE_POINT 
CALLS #0, EDTS$SO0T _FATBUF 
PUSHL SP 
CALLS , EDTS$TI_INPCH 
TSTL 
BEQL © 2$ 
CMPL  MY_C, #27 
BEQL 
CMPL  MY_C, #155 
BEQL =s«1$ 
CMPL  MY_C, #143 
BNEG 7$ 
$: PUSHL 


0 


egy eee rom 


000000006 


53 
FO 


000000006 


00000098 
0000008F 


000000006 


000000006 
0000007F 


EDTSKEYCHR = get next command character 
EDTSSNXT_CMDCH = get next command character 


000000006 99 


oo 
o 
o 


SAAOOANGA “OM NOMA QM10 8 & MNOMNWDAOP $F SPNIOMNODOWO FP NOMOAVUAOAMNOMONM10 
OWN MINIT SO NWT SWAIN OE AUS MNOS MEM OMIM MO MOCO OCOMWNNOWFPMOWwO—-MowoLrm 


000000006 


co 
wr 


oO 
wn 


wn no 
DP ON 9 DOS FDO OW OW 10 9 NN "WW SID 9 DD O10 S$ WSS SOD WUWO@ - amo 
COOOCCOCOGCOOCOCOOCOCOCOOCOOOOOOSOSOOOOOOCOCOSOOOOO OOOO OOOOOOOOOOOOOOOOO 


"OCT-90-90 —- "990 T9090 10-90 | 9 NO $9 9 | 9 SO TO TM OM OS OOO To TNO" 
SOOOOCOCOCOCOCOCOOCOOCOSCOCCOOSSCSOSSSSSSSCSCOSOCSOOOCOOOCOOOCOOOOOOOOOOOCOoCOoOO 


é se 1 
~Sep-1 


12$: 


—— 
on 
Pow 


19$: 


She 93:53:36 Pee GhASteR Ebr sacikevcur.aut:1™ cf | 


My_C 
#4; EDTSSTST_KEVDEF 
RO. 8$ 


30$ 

#0, EDTSSOUT_FMTBUF 
#1, EDTS$TI_INPCH 
15$ 

#0, EDTS$SC_REVID 
RI C. Be R3 

RAG #240 

11$ 

R2, #45 

11§ 

25$ 

REPEAT, 10$ 
EDT$$G_RPT 

16$ 

EDT$$G_QUIET, 12$ 
#0, EDTS$RING BELL 
#0. EDTSSOUT_FMTBUF 


#1, EDTSSTI_INPCH 
RO 


21$ 

MYC, #27 
MY_C, #155 
MY_C, #143 
7$ 


SP 
", EDTSS$TRN_KPADK 

13$ 

21$ 

EDTSSA_CMD_BUF SAVE_POINT 
SAVE_POINT, EDT$S$A_CMD_BUF 
#0, EDT$SERA_MSGLN 

MYC, R3 


wi, € 
= (SP) 
#2, EDTSSPUT_CMDCH 


MY C, #127 
E 
E 
( 
# 


DIS$TI_ECHOCH 


$SA_CMD_BUF, SAVE_POINT 


$$A_CMD_BUF 
$SA~CMD~BUF, RO 
), =(SPY 


Y 

DT 
0$ 
DT 
DT 
RO 
1, EDTS$TI_DELK 


D6 | 
EDTSKEYCHR EDTSKEYCHR = get next command character 16-Sep 4 00:41:34 VAX-11 Bliss-32 v4.0- e 12. eof 
04-000 EDTSSNXT "CMDCH = get next command character 14-Sep 7138 99: 34; 36 DISKSVMSMASTER:CEDT. SRCIKEYCHR. BLI;1 tote Rid 
be 0 FB Ig 208: CALLS #0, EDT$SOUT_FMTBUF : 0913 
i DD 001 PUSHL SP : 0915. 
67 FB 0017 CALLS #1, EDTSSTI_INPCH : | 
9 D 1% TSTL RO : 
p 1 17 BNEG =«-:19$ : | 
, 4 17A g18: BRB 27$ ; 
53 $f DO O017C 228:  MOVL MY_C + 0919) 
15 D1 0017F CMPL af PP : | 
69 so 8 18% ener $ DTSSERA_MSGLN : 0922. 
000000006 00 000000006 $9 9F 0187 HOVAB pots T_CMD_BOF, EDTSSA_CMD_END : 0925 
FO 8F 6a$ 91 00196 238:  EMPB —-EDTSSB_CHAR_INFOLRSJ, #240 i 99 2 | 
Ad 13 00199 BEQL 18s : 
1B 53 D1 00198 CMPL R3, #27 0945 | 
8 13 OO19E 248 BEQL 14§ : 
00000098 ~=s BF D1 001A CMPL = R3, «#155 : | 
£5 13 OO1A BEQL 248 : 
0000008F  8F 7 pf 0019 CMPL RB, #143 : 
FF6D 31 90180 BRW 13§ ; 
18 52 D1 00183 25$ CMPL 2, #27 : 0967) 
12 13 00186 BEQL 268 : 
00000098 ~=s FF 52 D1 001B CMPL = R2, - #155 : 
09 13 001BF BEQL 268 : 
0000008F BF 52 D1 001C1 CMPL =soR2, #143 : 
0D 12 001¢8 BNEG 286 : | 
5E DD OOICA 26$ PUSHL SP + 0981) 
7) 01 FB OOICC CALLS #1, EDTS$$TRN_KPADK : 
50 D5 OOICE TSTL. RO : 
0B 12 00101 BNEQ 29% F 
50 02 DO 001D3 278 MOVL #2, RO ; 
04 00106 RET : 
04 63 £9 00107 28$ BLBC (R3), 29 > 0994 | 
6E EO A2 3 001DA MOV -32(R2), MY_C : 1002 
6E 000001F4 8F ¢ 001DE 298 ADDL2 #500, MY_C > 0983 
FEBE 31 OO1E BRW 7$ : 0819 
04 BC 6E DO O01E8 308 MOVL  MY_C, ac : 1018 
50 01 DO OO1EC 31$ MOVL #17 RO : 101 
04 OO1EF RET : 
50 D4 001FO 328 CLRL — RO > 1014 
04 001F2 RET : 


; Routine Size: 499 bytes, Routine Base: _EDTSCODE + 0004 


3; 445 1015 1 
446 1016 1 !<BLF/PAGE> 


; Size: 499 gods + 4 data bytes 
; Run Time: 00 y 


: Elapsed Time: 00:28.3 
3 Lines/CPU Min: 


6 
eprecgycun EDTSKEYCHR = get next command character bes Sep-1 oes 9 34:38 VAX-11 Bliss-32 V eg Page 13 
EDTSSNXT_CMDCH = get next command character 14-Sep 5-19 723: DISKSVMSMASTER: cto ocr KEYCHR.BLI;1 (4) 

; 4468 1017 1 END ! of module EDTSSKEYCHR 

; 4469 1918 1 

; 450 1019 0 ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

;  EDTSCODE 503 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
| 

3 Library Statistics | 

ee ee oe as ree Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 5 1 40 00:00.2 | 

| 55$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

; _S$255$DUA28: CEDT. SRC JKEYPADDEF. 432 1 34 6 17 7 00:00.1 

: 7$255$DUA28:CEDT.SRCISUPPORTS.L 32; 1 2 1 50 5 00:00.1 | 
| 
| 
| 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:KEYCHR/OBJ=OBJ$:KEYCHR MSRC$:KEYCHR.BLI/UPDATE=(ENHS$:KEYCHR) | 


; Lexemes/CPU-Min: $335 
; Memory Used: 158 pages 
; Compication Complete 
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N 
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ss 
I 


IGI 
ONF 


D 
C 


0135 


A 
D 


